From c3e46f0c63ec0a2278d7f22ec8ace85dc442407c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 24 May 1993 18:46:13 +0000 Subject: [PATCH] (shell-command): Don't activate mark even momentarily. --- lisp/simple.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index f5184105361..729685ddaed 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -648,7 +648,12 @@ This cannot be done asynchronously." ;; aliases for shell commands then they can still have them. (call-process shell-file-name nil t nil "-c" command) - (exchange-point-and-mark)) + ;; This is like exchange-point-and-mark, but doesn't activate the mark. + ;; It is cleaner to avoid activation, even though the command + ;; loop would deactivate the mark because we inserted text. + (goto-char (prog1 (mark t) + (set-marker (mark-marker) (point) + (current-buffer))))) ;; Preserve the match data in case called from a program. (let ((data (match-data))) (unwind-protect -- 2.30.2